The History of Denim/The History of Denim.iso/pc/help.dir/00003.ls

Text File | 1997-11-14 | 1.1 KB | 38 lines

on exitFrame
  global MouseMGR, helphighlighted
  if MouseMGR = "HelpNav" then
    jumptohelpscreen()
    WindowFunctions()
    set MouseMGR to EMPTY
  end if
  MoveMyWindow()
  jumptohelpscreen_doubleclick()
  go(the frame)
end

on mouseDown
  global CatchMouseX, CatchMouseY, HelpMoving, helphighlighted, MouseMGR
  set CatchMouseX to the mouseH
  set CatchMouseY to the mouseV
  if inside(point(the mouseH, the mouseV), rect(61, 0, 142, 25)) then
    set HelpMoving to 1
  end if
  if inside(point(the mouseH, the mouseV), rect(16, 48, 146, 164)) then
    set helphighlighted to the mouseLine
    set MouseMGR to "HelpNav_Done"
  end if
  if the frameLabel = "Main" then
    set MyTestrects to [rect(14, 180, 165, 201)]
    set Myclickedrects to [rect(14, 180, 165, 201)]
    set MyClickGRFX to ["help_pal_clck"]
    repeat with d = 1 to count(MyTestrects)
      if inside(point(the mouseH, the mouseV), getAt(MyTestrects, d)) then
        puppetSprite(50, 1)
        set the memberNum of sprite 50 to member getAt(MyClickGRFX, d)
        set the rect of sprite 50 to getAt(Myclickedrects, d)
        updateStage()
      end if
    end repeat
  end if
end